(when (not (= (vector-length command-line-arguments) 1))
   (display "Usage: monos -f decompose.scm generator-file\n")
   (exit))

(let* ((file (vector-ref command-line-arguments 0))
       (uri (file->uri file))
       (ideal (unmarshall (parse-xml-from-uri->document uri)) ) )
   (marshall (find-facet ideal) (xml-writer (current-output-port)) ) )

